home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / listing 5-3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  796b  |  30 lines
  1. 10 rem ***  portamento - effekt
  2. 11 :
  3. 12 :n =7492 :rem anfangsnote
  4. 13 :m =1    :rem mode       (port-mode)
  5. 14 :z =1400 :rem zaehler    (level)
  6. 16 :ef=100  :rem effektbyte
  7. 19 :
  8. 20 rem * ton einschalten
  9. 21 :
  10. 22 s=54272:pokes+4,8:pokes+24,15 :rem volle lautstaerke
  11. 23 pokes+6,248:pokes+5,0:pokes+4,33 :rem adsr und saegezahn-wellenform poken
  12. 29 :
  13. 40 rem * portamento !
  14. 41 :
  15. 42 rem start
  16. 43 :
  17. 44 tn=n  :rem  anfangstonhoehe setzen
  18. 45 :
  19. 50 rem schleife
  20. 51 :
  21. 52 pokes+1,tn/256:pokes,tnand255 :rem  tonhoehe in sid poken
  22. 53 if(mand3)=1thentn=tn-z:iftn<efthen70 :rem tonhoehe vermindern, ggf. zum ende
  23. 54 if(mand3)=2thentn=tn+z:iftn>efthen70 :rem tonhoehe erhoehen, ggf. zum ende
  24. 55 goto52 :rem weitermachen
  25. 69 :
  26. 70 rem auswertung bei schleifenende
  27. 71 :
  28. 72 if(mand4)=4then44 :rem  bei modus>4 portamento erneut ausfuehren.
  29. 73 pokes+4,32 :rem  ton ausklingen lassen
  30.